home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
MATH
/
MATHLIB
/
SAVAGE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-06-21
|
603b
|
20 lines
{$N+}
PROGRAM Savage;
{ variation of the savage benchmark for floating point performance }
USES DOS, MathLib;
CONST isize = 25000;
VAR hr1,min1,sec1,hun1,hr2,min2,sec2,hun2:WORD;
i,j: INTEGER;
time: REAL;
a: DOUBLE;
BEGIN
a := 1.0;
GetTime(hr1,min1,sec1,hun1);
FOR j := 1 TO 15 DO FOR i := 1 TO isize DO
a := TAN(ARCTAN(EXP(LN(SQRT(a*a)))))+1;
GetTime(hr2,min2,sec2,hun2);
time := 3600*(hr2-hr1)+60*(min2-min1)+(sec2-sec1-1)+(100+hun2-hun1)/100;
WRITELN('time (sec): ',time:6:2);
WRITELN('result "a": ',a);
END.